home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tb_ontop / frmmain.frm < prev    next >
Text File  |  1994-07-14  |  2KB  |  83 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Toolbox On Top"
  5.    ClientHeight    =   615
  6.    ClientLeft      =   1470
  7.    ClientTop       =   2280
  8.    ClientWidth     =   2610
  9.    Height          =   1020
  10.    Icon            =   FRMMAIN.FRX:0000
  11.    Left            =   1410
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   540
  16.    ScaleWidth      =   540
  17.    Top             =   1935
  18.    Width           =   2730
  19.    WindowState     =   1  'Minimized
  20.    Begin MsgHook MsgHook 
  21.       Left            =   120
  22.       Top             =   60
  23.    End
  24. End
  25. Option Explicit
  26.  
  27. Sub Form_Load ()
  28.  '
  29.  ' Build System Menu
  30.  '
  31.   SysMenuBuild
  32.  '
  33.  ' Setup MsgHook Control
  34.  '
  35.   MsgHook.HwndHook = Me.hWnd
  36.   MsgHook.Message(WM_QUERYOPEN) = True
  37.   MsgHook.Message(WM_SYSCOMMAND) = True
  38. End Sub
  39.  
  40. Sub Form_Unload (Cancel As Integer)
  41.  '
  42.  ' Restore toolbox state upon exit
  43.  '
  44.  ToolboxOnTop False
  45. End Sub
  46.  
  47. Sub MsgHook_Message (msg As Integer, wParam As Integer, lParam As Long, action As Integer, result As Long)
  48.   Select Case msg
  49.     Case WM_QUERYOPEN
  50.       '
  51.       ' Prevents form from becoming un-minimized
  52.       '
  53.       result = False
  54.     Case WM_SYSCOMMAND
  55.       '
  56.       ' Process system menu commands
  57.       '
  58.       Select Case wParam
  59.         Case 1
  60.           '
  61.           ' Toggle Toolbox on Top setting
  62.           '
  63.           If IsMenuChecked() Then
  64.             ToolboxOnTop False
  65.             CheckOnTop MF_UNCHECKED
  66.           Else
  67.             ToolboxOnTop True
  68.             CheckOnTop MF_CHECKED
  69.           End If
  70.         Case 2
  71.           '
  72.           ' Show About Form
  73.           '
  74.           frmAbout.Show 1
  75.         Case Else
  76.           '
  77.           ' pass other messages through
  78.           '
  79.       End Select
  80.   End Select
  81. End Sub
  82.  
  83.